home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / toolboxEvent.sim < prev    next >
Encoding:
Text File  |  1989-04-13  |  2.7 KB  |  89 lines  |  [TEXT/MPS ]

  1. % ---------------------------------------------------------------------------
  2. %    Class TOOLBOXEvent
  3. %
  4. % the routines listed in Inside Macintosh chapter: Toolbox Event
  5. % The code has been converted from the file ToolInft.p
  6. % In this module you find the interfaces to procedures concerned with Events
  7. % in the subclass MACEventManager you will find the programmers interface built on 
  8. % top of this interface.
  9. %
  10. % 890317/Boris Magnusson
  11. % 890401/Göran Eriksson
  12. %
  13. % ---------------------------------------------------------------------------
  14. Class TOOLBOXEvent;
  15. begin
  16.         
  17. % -- systemclick & Task  moved from toolboxDesk
  18. % -- used only from processMGR -- 
  19. %    PROCEDURE SystemClick(theEvent: EventRecord; theWindow: WindowPtr);
  20.     external Toolbox procedure x="$A9B3" is
  21.     PROCEDURE ToolboxSystemClick(theEvent, theWindow);
  22.         name theEvent;
  23.         short integer theEvent;
  24.         integer theWindow;;
  25.  
  26. %    PROCEDURE SystemTask;
  27.     external Toolbox procedure x="$A9B4" is
  28.     PROCEDURE ToolboxSystemTask;;
  29. % -----------------------------------------
  30.  
  31. %        {for Event Manager}
  32.  
  33. %    FUNCTION EventAvail(mask: INTEGER; VAR theEvent: EventRecord): BOOLEAN;
  34.     external toolbox procedure x="$A971" is
  35.     boolean procedure ToolboxEventAvail(mask,theEvent);
  36.         name theEvent;
  37.         short integer mask, theEvent;;
  38.  
  39. %    FUNCTION GetNextEvent(mask: INTEGER; VAR theEvent: EventRecord): BOOLEAN;
  40.     external toolbox procedure x="$A970" is
  41.     boolean procedure ToolboxGetNextEvent(mask,theEvent);
  42.         name theEvent;
  43.         short integer mask, theEvent;;
  44.  
  45. %    FUNCTION WaitNextEvent(mask: INTEGER; VAR event: EventRecord;
  46. %                     sleep: LONGINT; mouseRgn: RgnHandle): BOOLEAN;
  47.     external toolbox procedure x="$A860" is
  48.     boolean procedure ToolboxWaitNextEvent(mask,event,sleep, mouseRgn);
  49.         name event;
  50.         short integer mask, event;
  51.         integer sleep; integer mouseRgn;;
  52.  
  53. %    FUNCTION StillDown: BOOLEAN;
  54.     external toolbox procedure x="$A973" is
  55.     boolean procedure ToolboxStillDown;;
  56.  
  57.  
  58. %    FUNCTION WaitMouseUp: BOOLEAN;
  59.     external toolbox procedure x="$A977" is
  60.     boolean procedure ToolboxWaitMouseUp;;
  61.  
  62. %    PROCEDURE GetMouse(VAR pt: Point);
  63.     external toolbox procedure x="$A972" is
  64.     PROCEDURE ToolboxGetMouse(pt);
  65.     name pt; short integer pt;;
  66.  
  67. %    FUNCTION TickCount: LONGINT;
  68.     external toolbox procedure x="$A975" is
  69.     integer procedure ToolboxTickCount;;
  70.  
  71.  
  72. %    FUNCTION Button: BOOLEAN;
  73.     external toolbox procedure x="$A974" is
  74.     boolean procedure ToolboxButton;;
  75.  
  76. %    PROCEDURE GetKeys(k);
  77.     external toolbox procedure x="$A976" is
  78.     PROCEDURE ToolboxGetKeys(k);
  79.     name k; boolean array k;;
  80.     
  81. %    FUNCTION GetDblTime: LONGINT;
  82. %    external Toolbox procedure x="$2EB80" is
  83. %    external Toolbox procedure x="$$02F0" is
  84.  
  85. %    FUNCTION GetCaretTime: LONGINT;
  86. %    external toolbox procedure x="$2EB8" is
  87. %    external toolbox procedure x="$02F4" is
  88.  
  89. end;